用Excel VBA编写程序

Excel VBA编程环境

本书使用Excel 2016进行VBA编程。进行Excel VBA编程，首先要加载“开发工具”功能区。如果您的Excel 2016中没有找到该功能区，需要首先加载它。按照以下步骤进行加载：

• 单击“文件”菜单，在展开的界面左侧菜单中单击最下面的“选项”选项，打开图1-1所示的对话框。

图1-1 加载“开发工具”功能区

• 在对话框中单击左侧菜单中的“自定义功能区”选项，打开自定义功能区界面。

• 在右边的列表框中找到“开发工具”选项，单击它前面的核选框，选择它。

• 单击“确定”按钮。现在Excel主界面中添加了“开发工具”选项卡，如图1-2所示。

图1-2 “开发工具”功能区

“开发工具”功能区主要有代码、加载项、控件和XML4个功能分区，这里主要使用代码功能分区。单击第1个按钮，即Visual Basic按钮，打开Excel的VBA编程环境，如图1-3所示。

图1-3 Excel VBA编程环境

在Excel VBA编程环境窗口中，使用“插入”菜单中的选项可以添加用户窗体、模块和类模块，或者添加已经存在的模块文件。用户窗体模块用于设计程序界面，可以用左下角的属性窗口设置窗体和控件的属性。模块中添加变量、过程和函数。类模块中添加类代码。插入一个模块，右边大的空白区域是代码编辑器，在这里输入、编辑和调试程序代码。使用“调试”菜单中的选项进行程序调试。

编写Excel VBA程序

下面编写一个简单的两个数求和的函数。打开Excel VBA编程环境，在“插入”菜单中单击“模块”选项，添加一个模块，在代码编辑器中输入下面的代码：

Function MySum(sngX As Single, sngY As Single) As Single
  MySum=sngX+sngY
End Function

它实现一个简单的加法运算。

继续添加一个Test过程，代码如下所示：

Sub Test()
  Debug.Print MySum(2, 6)
End Sub

该过程调用MySum函数计算2和6的和，并在立即窗口中输出该计算结果。

在Test过程任意处单击鼠标左键，单击工具条中的三角形按钮，运行该过程，在立即窗口中输出2和6的和8。